perm filename FOO[HAL,HE]1 blob sn#200990 filedate 1976-02-10 generic text, type T, neo UTF8

(pr (bl (svar x) (wh 0 (as x 0))(as x 1)(wh x (as x 1))))